home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 18 / CU Amiga Magazine's Super CD-ROM 18 (1997)(EMAP Images)(GB)[!][issue 1998-01].iso / CUCD / Programming / EasyTools / EASYversion < prev    next >
Encoding:
Text File  |  1996-12-13  |  1.6 KB  |  68 lines
  1. /*
  2.  
  3. $VER: EASYversion 1.0 (12.11.95) by David De Groot
  4.  
  5.  
  6. Compares versions in two dirs
  7. (f.e. work:libs - system:libs)
  8.  
  9. This script works with 'multiver' in your c: dir
  10.  
  11.  
  12. */
  13.  
  14.  
  15.  
  16.  
  17. options failat 21 
  18.  
  19. NL = '0a'x
  20.  
  21. bool = exists('libs:rexxreqtools.library')
  22. if bool = 0 then say "You need RexxReqTools.library"
  23.  else call addlib('rexxreqtools.library',0,-30)
  24.  
  25. mcheck = exists('c:multiver')
  26. if mcheck = 0
  27.     then do
  28.      call rtezrequest("MULTIVER is not in C:.",, 
  29.                       "Sorry!","ATTENTION!!",'rt_reqpos=reqpos_centerscr rtez_flags=ezreqf_centertext')
  30.     exit 
  31.   end
  32. else
  33.  
  34.  
  35. call rtezrequest("This scirpt allows you to compare versions" nl,
  36.                  "of two directorie's contents." nl "" nl,
  37.                  "There's an option to copy:" nl,
  38.                  "if two identicals are found, you will be asked" nl,
  39.                  "for comfirmation;" nl,
  40.                  "the NEWEST (most recent) version will overwrite the older." nl,
  41.                  "" nl "In either case a LOGFILE will be written to your ram: " nl,
  42.                  "(Ram:Log)",, 
  43.                  "Ok","EASYversion", 'rt_reqpos=reqpos_centerscr rtez_flags=ezreqf_centertext')
  44.  
  45. dira = rtfilerequest('ram:',,"Pick the FIRST dir to scan:", ,,
  46.                      'rtfi_flags = freqf_nofiles rt_reqpos=reqpos_centerscr')
  47.  
  48. if rtresult == 0 then exit
  49.  else do
  50. dirb = rtfilerequest('ram:',,"Pick the SECOND dir to scan:", ,,
  51.                      'rtfi_flags = freqf_nofiles rt_reqpos=reqpos_centerscr')
  52.  
  53. if rtresult == 0 then exit
  54.  
  55.   address command
  56.   'multiver ' || dira || ' ' || dirb || ' copy log os3.1'
  57.  
  58. end
  59.  
  60. say ""
  61. say "Close window when done."
  62.  
  63.  
  64.  
  65. /* Futureplans: DESTROY ;-) */
  66.  
  67.  
  68.